home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 1
/
Publication_01_19xx_-_de_Side_A.d64
/
commercial town
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
21KB
|
736 lines
10 rem ******************************
11 rem * *
12 rem * commercial town fuer c64 *
13 rem * *
14 rem * von : peter fink *
15 rem * 8500 nuernberg 30 *
16 rem * stephanstrasse 20 *
17 rem * tel.: 0911/467930 *
18 rem * *
19 rem ******************************
99 print"[147]";
100 dimsn$(41)
150 poke53281,0:poke53280,0
200 sn$(0)=""
205 sn$(1)=" c o m m e r c i a l t o w n"
210 sn$(2)=" [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
215 sn$(3)=""
220 sn$(4)=" peter fink, februar 1985"
225 sn$(5)=""
230 sn$(6)="dieses spiel laeuft nach den originalen"
235 sn$(7)="monopoly-regeln. es koennen 1 - 4 spie-"
240 sn$(8)="ler teilnehmen. die auf 4 spieler feh-"
245 sn$(9)="lenedn werden vom computer simuliert."
250 sn$(10)="bei der eingabe von strassennamen brau-"
255 sn$(11)="chen nur die ersten drei buchstaben"
260 sn$(12)="eingegeben zu werden."
265 sn$(13)=" ausnahmen:"
270 sn$(14)="schillerstrasse und schlossallee: 4"
275 sn$(15)="hauptbahnhof und hauptstrasse: 6"
280 sn$(16)=""
285 sn$(17)="1 hotel entspricht 5 haeusern, das"
290 sn$(18)="heisst auch beim kauf und verkauf von"
295 sn$(19)="haeusern muessen hotels als 5 haeuser"
300 sn$(20)="eingegeben werden."
305 sn$(21)=""
310 sn$(22)=""
315 sn$(23)=" weiter -> [space]"
320 sn$(24)=""
325 sn$(25)="bei der abfrage nach den aktivitaeten"
330 sn$(26)="des spielers vor dem wuerfeln kann fol-"
335 sn$(27)="gende auswahl getroffen werden:"
340 sn$(28)="> h < wenn er haeuser kaufen will"
345 sn$(29)="> z < wenn er eine hypothek zurueck-"
350 sn$(30)=" zahlen will."
355 sn$(31)="> k < wenn er einem mitspieler ein ver-"
360 sn$(32)=" kaufs- oder tauschangebot machen"
362 sn$(34)="> w < wenn er wuerfeln will."
365 sn$(33)=" will."
370 sn$(35)=""
375 sn$(36)="steht im feld 'standort': gefaengnis #[146]"
380 sn$(37)="so heisst das, dass der spieler nicht"
385 sn$(38)="nur zu besuch sondern echt im gefaeng-"
390 sn$(39)="nis ist."
395 sn$(40)=""
400 sn$(41)=" start -> [space]"
420 fora=0to22:print"[129]"sn$(a):next
422 gosub25000:printsn$(23)
425 geta$:ifa$<>" "then425
430 print"[147]";:fora=24to40:print""sn$(a):next
440 gosub25090:printsn$(41)
510 sn$(0)="[150][213][195][195][195][178][195][195][195][195][195][195][195][195][195][195][178][195][195][195][201][149][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
520 sn$(1)="[150][194]***[194] [158]besitz[150] [194]***[194][149][194] standort: [149][194]"
530 sn$(2)="[150][171][195][195][195][203] [197][197][197][197][197][197][150] [202][195][195][195][179][149][194] [194]"
540 sn$(3)="[150][194] [194][149][194] [194]"
550 sn$(4)="[150][194] [194][149][194] [194]"
560 sn$(5)="[150][194] [194][149][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
570 sn$(6)="[150][194] [194][149][194][159] [146][149][194]"
580 sn$(7)="[150][194] [194][149][194][159] [146][149][194]"
590 sn$(8)="[150][194] [194][149][194][159] [146][149][194]"
600 sn$(9)="[150][194] [194][149][194][159] [146][149][194]"
610 sn$(10)="[150][194] [194][149][194][159] [146][149][194]"
620 sn$(11)="[150][194] [194][149][194][159] [146][149][194]"
630 sn$(12)="[150][194] [194][149][194][159] [146][149][194]"
640 sn$(13)="[150][194] [194][149][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
650 sn$(14)="[150][194] [194] spieler "
660 sn$(15)="[150][194] [194][161] [146][161] [129][213][195][195][195][195][195][195][195][201] "
670 sn$(16)="[150][194] [194][161] [146][161] [129][194][149] zeit: [129][194] "
680 sn$(17)="[150][194] [194][188][162][162][162][162][162][162][162][146][190] [129][194] [194] "
690 sn$(18)="[150][194] [194] [158]kapital [129][202][195][195][195][195][195][195][195][203] "
700 sn$(19)="[150][194] [194][156][161] [146][161] "
710 sn$(20)="[150][194] [194][156][161] [146][161] [213][195][195][195][195][195][195][195][201] "
720 sn$(21)="[150][194] [194][156][188][162][162][162][162][162][162][162][146][190] [194][152]frei p.[194] "
730 sn$(22)="[150][194] [194] [153][209] [209][146] [209][146] [194] [194] "
740 sn$(23)="[150][194] [194] [153] [146] [209] [146] [202][195][195][195][195][195][195][195][203] "
750 sn$(24)="[150][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] [153][209] [209][146] [209] [146] "
775 geta$:ifa$<>" "then775
776 print"[147]";
780 fora=0to24:printsn$(a);:next
795 poke56295,14:poke2023,102
1000 gosub25220
1100 gosub10900:gosub10800:print"dauer des spieles":gosub10800
1105 print" (in min.)":gosub10800
1110 print"";:b$=""
1111 geta$:ifa$<>chr$(20)then1114
1112 iflen(b$)>0thenprint"[157] [157]";:b$=left$(b$,len(b$)-1)
1113 goto1111
1114 ifa$<>""anda$<>chr$(13)thenifasc(a$)<48orasc(a$)>57then1111
1115 printa$;:ifa$=chr$(13)andlen(b$)>0then1118
1116 b$=b$+a$:goto1111
1118 ru=val(b$)
1120 gosub10900:gosub10800
1125 print"anzahl der spieler":gosub10800
1130 print"";:b$=""
1131 geta$:ifa$<>chr$(20)anda$<>chr$(13)anda$<>""thenprinta$"[157]";:b$=a$
1132 ifa$=chr$(13)andlen(b$)=1then1134
1133 goto1131
1134 ifasc(b$)<48orasc(b$)>52then1120
1135 an=val(b$)
1140 gosub10900:ifan=0then1180
1145 fora=1toan
1150 print""sr$su$"[159] name spieler "a
1155 printsr$"[145](bis zu 7 buchst.)
1156 [153]""su$sr$"anm.: verschiedenecmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
1157 [153]"anfangsbuchstabencmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
1158 [153]"waeren von vorteil"
1160 [153]sr$"";:b$[178]""
1161 [161]a$:[139]a$[179][177][199](20)[167]1164
1162 [139][195](b$)[177]0[167][153]"cmd cmd";:b$[178][200](b$,[195](b$)[171]1)
1163 [137]1161
1164 [139][195](b$)[177][178]7[167]1168
1165 [139]a$[178][199](13)[167]1167
1166 [153]a$;:b$[178]b$[170]a$:[137]1161
1167 [139][195](b$)[178]0[167]1161
1168 sp$(a)[178]b$:[141]10900
1170 [130]a
1175 [139]an[178]4[167]1200
1180 b[178]1:[129]a[178]an[170]1[164]4
1185 sp$(a)[178]na$(b):b[178]b[170]1
1190 [130]a
1195 sp$(5)[178]"bank"
1200 [129]a[178]1[164]40:sb(a)[178]0:[130]
1205 [129]a[178]1[164]4:po(a)[178]1:[130]
1210 bb$(0)[178]" ":bb$(1)[178]"1":bb$(2)[178]"2":bb$(3)[178]"3":bb$(4)[178]"4":bb$(5)[178]"atn"
1215 [129]a[178]1[164]4:s$(a)[178][200](sp$(a),1):[130]
1220 fp[178]0:ez[178]1:gz[178]1
2995 ti$[178]"000000":[141]20000
3000 [129]z[178]1[164]4:ll[178]0:p[178]0:wp$[178]"":[139]po(z)[178]0[167]3995
3010 [141]7000
3015 [141]6000
3020 [141]10000
3025 [141]5000
3030 [141]8000
3035 [139]pg(z)[178]1[167]21000
3040 [139]z[177]an[167][141]13000:[137]3100
3042 [141]10900
3045 [153]""sr$su$"open * aktivitaeten *"
3050 [153]""sr$su$"haus kaufen -> h"
3051 [153]""sr$su$"hyp. z'zahlen -> z"
3052 [153]""sr$su$"angeb. mitsp. -> k"
3053 [153]""sr$su$"wuerfeln -> w"
3054 tm$[178]ti$
3055 [161]a$:[139]a$[178]""[167]3055
3057 ti$[178]tm$
3060 [139]a$[178]"h"[167][141]10900:[141]12000:[137]3042
3065 [139]a$[178]"z"[167][141]10900:[141]11000:[137]3042
3070 [139]a$[178]"k"[167][141]10900:[141]16000:[137]3042
3075 [139]a$[179][177]"w"[167]3045
3100 [141]22000
3105 [141]9000
3110 [141]5000
3200 [139]lo[178]1[175]po(z)[179][177]1[167]i[178]4000:[137]3210
3205 [139]lo[178]1[175]po(z)[178]1[167]i[178]8000:[137]3210
3206 [137]3220
3210 [141]10900:[141]10800:[153]""sp$(z)" bekommt"
3215 [141]10800:[153]""i"dm."
3216 ge(z)[178]ge(z)[170]i
3218 lo[178]0:[129]a[178]1[164]1500:[130]
3220 [139]po(z)[178]5[176]po(z)[178]39[167][141]20500
3225 [139]po(z)[178]8[176]po(z)[178]23[176]po(z)[178]37[167]23000
3230 [139]po(z)[178]3[176]po(z)[178]18[176]po(z)[178]34[167]23100
3235 [139]z2[178]1[167]z2[178]0:[137]3995
3240 [139]po(z)[178]11[167][141]10900:[137]3285
3245 [139]po(z)[178]21[167][141]10900:[141]10800:[153]""sp$(z)" bekommt"
3250 [139]po(z)[178]21[167][141]10800:[153]""fp"dm."
3255 [139]po(z)[178]21[167]ge(z)[178]ge(z)[170]fp:fp[178]0
3260 [139]po(z)[178]31[167]pg(z)[178]1:wu[178]20:[137]3105
3265 [139]fa(po(z))[178]10[167][141]24000
3270 [139]fa(po(z))[178]9[167][141]24200
3275 [139]fa(po(z))[177]0[175]fa(po(z))[179]9[167][141]24400
3280 [139]z2[178]1[167]z2[178]0:[137]3995
3285 [141]7000:[141]20000
3287 [129]a[178]1[164]1000:[130]
3290 [139]wp$[178]"pasch"[175]pg(z)[178]0[167]3400
3295 [137]3990
3400 [139]z[179][178]an[167]3100
3410 [141]10900:[141]10800:[153]"pasch: nochmal!":[129]a[178]1[164]1500:[130]:[137]3100
3990 [129]a[178]1[164]1000:[130]
3992 [141]10900
3995 [130]z:[139]tt[177]ru[167]27100
3996 [137]3000
5000 [153]"wait"[200](re$,22);"print cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
5005 [153]" "
5010 [153]""[200](re$,22);"print";sn$(po(z))" "bb$(sb(po(z)))"wait";
5015 [139]pg(z)[178]1[167][153]"cmd#"
5020 [139]fa(po(z))[177]0[167][153]""[200](re$,22)"defbesitzer: "sp$(be(po(z)))
5025 [129]a[178]1[164]100:[130]
5030 [153]"wait"[200](re$,22);"print cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
5035 [153]""[200](re$,22);"print";sn$(po(z))" "bb$(sb(po(z)));
5040 [139]pg(z)[178]1[167][153]"cmd#wait"
5050 [142]
6000 [153]""[200](re$,21);[200](un$,16);" wait"
6010 [153]""[200](re$,21);[200](un$,16);""sp$(z)"wait"
6015 [142]
7000 ge(z)[178][181](ge(z)[173]10)[172]10:g$[178][201]([196](ge(z)),[195]([196](ge(z)))[171]1)
7005 [153]"clr"[200](re$,21);[200](un$,20);" wait"
7010 [153]"clr"[200](re$,21);[200](un$,20);""g$"wait"
7015 [142]
8000 zl[178]4:j[178]1
8002 [129]b[178]0[164]ko(j)[171]1:i[178]st(j,b)
8005 [139]be(i)[179][177]z[167]8020
8007 [139]zl[178]22[167][141]8200
8010 [153]""[200](un$,zl)""fa$(fa(i))" wait - "bb$(sb(i));
8011 [139]hy(i)[178]1[167][153]"cmdh";
8012 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"sn$(i):zl[178]zl[170]1
8020 [130]b
8025 j[178]j[170]1:[139]j[178]11[167][142]
8030 [137]8002
8200 [139]z[177]an[167]8300
8202 [153]""[200](un$,zl[170]1)"listweiter mit <space>"
8204 tm$[178]ti$
8205 [161]a$:[139]a$[178]""[167]8205
8206 ti$[178]tm$
8210 [141]10000:zl[178]4:[142]
8300 [129]a[178]1[164]2000:[130]:[137]8210
9000 [129]a[178]1[164][182](wu):q[178]0
9005 [129]i[178]1[164]4:[139]i[178]z[167]9015
9010 [139]po(z)[178]po(i)[167]q[178]1:j[178]i
9015 [130]i
9020 [139]q[178]0[167]9030
9025 [139][198](s$(j))[179]65[167][151]kn(po(z))[170]54272,1:[151]kn(po(z)),[198](s$(j)):[137]9050
9027 [151]kn(po(z))[170]54272,1:[151]kn(po(z)),[198](s$(j))[171]64:[137]9050
9030 [151]kn(po(z))[170]54272,fb(po(z)):[151]kn(po(z)),ze(po(z))
9050 po(z)[178]po(z)[170][180](wu)
9055 [139]po(z)[177]40[167]po(z)[178]po(z)[171]40:[139]ll[178]0[175]pg(z)[178]0[167]lo[178]1
9060 [139][198](s$(z))[179]65[167][151]kn(po(z))[170]54272,1:[151]kn(po(z)),[198](s$(z)):[137]9070
9065 [151]kn(po(z))[170]54272,1:[151]kn(po(z)),[198](s$(z))[171]64
9070 [130]a:[142]
10000 [153]"wait";
10005 [129]a[178]1[164]20
10010 [153]" cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
10015 [130]
10020 [142]
10800 [153]""su$sr$"open";:[142]
10900 [153]""su$sr$lo$lp$lq$:[142]
11000 [141]10900:[141]10800:[153]"auf welcher":[141]10800
11002 [153]"strasse willst du":[141]10800:[153]"eine hypothek"
11004 [141]10800:[153]"zurueckzahlen ?"
11010 [141]19000:[141]10800:[153]"auf "at$(i):[139]fe[178]1[167]11025
11020 [139]hy(i)[178]1[175]ge(z)[177][178].6[172]pr(i)[167]11030
11025 [141]10800:[153]"falsche eingabe!":[137]11050
11030 hy(i)[178]0:ge(z)[178]ge(z)[171].6[172]pr(i)
11035 kp(z,fa(i))[178]kp(z,fa(i))[170]1
11040 [141]10000:[141]8000:[141]7000
11050 [129]a[178]1[164]1500:[130]:[142]
12000 [141]10900:[141]10800
12005 [153]"auf welche":[141]10800:[153]"strassen willst":[141]10800
12010 [153]"du haeuser bauen?":[141]10800:[153]"(die 1. angeben)"
12015 [141]19000:[139]fe[178]1[167]12500
12020 [139]be(i)[179][177]z[167]12500
12025 [139]i[177]38[167]12500
12027 [139]fa(i)[179]1[176]fa(i)[177]8[167]12500
12030 r[178]i
12035 w(0)[178]0:w(1)[178]0:w(2)[178]0
12040 [129]j[178]0[164]ko(fa(r))[171]1:b(j)[178]st(fa(r),j):b$(j)[178]sn$(st(fa(r),j))
12045 [139]be(b(j))[179][177]z[167]q[178]1
12050 [130]j
12055 [139]q[178]1[167]q[178]0:[137]12500
12065 [141]10900:[141]10800:[153]"wieviele auf .."
12070 [129]i[178]0[164]ko(fa(r))[171]1
12075 [141]10800:[153][200](un$,i[170]2)""b$(i);
12080 [161]w$(i):[139]w$(i)[178]""[167]12080
12085 [139][198](w$(i))[179]48[176][198](w$(i))[177]53[167]12080
12090 [141]10800:[153][200](un$,i[170]2)""w$(i):w(i)[178][197](w$(i))
12095 [130]i
12097 [139][182](sb(b(0))[170]w(0)[171]sb(b(1))[171]w(1))[177]1[167]12500
12100 [139]ko(fa(r))[178]3[175][182](sb(b(1))[170]w(1)[171]sb(b(2))[171]w(2))[177]1[167]12500
12105 [139]ko(fa(r))[178]3[175][182](sb(b(0))[170]w(0)[171]sb(b(2))[171]w(2))[177]1[167]12500
12110 [129]i[178]0[164]ko(fa(r))[171]1
12115 [139]sb(b(i))[170]w(i)[177]5[167]q[178]1
12120 [130]i
12125 [139]q[178]1[167]q[178]0:[137]12500
12130 py[178][181]((fa(r)[170]1)[173]2)[172]1000[172](w(0)[170]w(1)[170]w(2))
12135 [141]10800:[153]"preis:"py:[141]19500
12140 [139]pj[178]1[167][142]
12145 [129]i[178]0[164]ko(fa(r))[171]1
12150 sb(b(i))[178]sb(b(i))[170]w(i)
12155 gt[178]gt[170]w(i)
12160 [130]i
12165 ge(z)[178]ge(z)[171]py:[141]7000:[141]10000:[141]8000:[129]a[178]1[164]2000:[130]:[142]
12500 [141]10800:[153]"falsche eingabe!":[129]a[178]1[164]2000:[130]:[142]
13000 [141]13900:[141]14000:[139]s2[178]1[167]13900
13005 [141]15000:[139]s2[178]1[167][141]13900
13010 [141]13100:[142]
13100 j[178]0:k[178]0:m2[178]9:kj[178]0
13105 l(0)[178]0:l(1)[178]0
13110 [129]i[178]1[164]8
13115 [139]kp(z,i)[178]ko(i)[167]k(j)[178]i:j[178]j[170]1:k[178]1
13120 [130]i:[139]k[178]0[167]13400
13125 [129]k[178]1[164]j
13130 [139]ge(z)[179]gt[172]200[170][187](1)[172]5000[176]ge(z)[179]3[172]([181]((k(j[171]1)[170]1)[173]2)[172]1000)[167]13400
13135 h[178][181](([187](1)[173]4[170].5)[172]ge(z))
13140 m[178][181]([187](1)[172]j):[139]m[178]m2[167]m[178]m[170]1:[139]m[178]j[167]m[178]0
13145 n[178][181](h[173](([181]((k(m)[170]1)[173]2)[172]1000)))
13150 [139]n[178]0[167]13345
13155 m2[178]m
13160 [129]i[178]0[164]ko(k(m))[171]1
13165 b$(i)[178]sn$(st(k(m),i)):b(i)[178]st(k(m),i):[130]i
13190 y[178]sb(b(0))[170]sb(b(1))[171](sb(b(2))[172](ko(k(m))[178]3))
13195 [139]y[170]n[177]5[172]ko(k(m))[167]n[178]5[172]ko(k(m))[171]y
13200 [139]n[178]0[167]13345
13210 [139]ko(k(m))[178]2[167]13250
13215 [139]sb(b(0))[178]sb(b(1))[175]sb(b(0))[178]sb(b(2))[167]13230
13220 [139]sb(b(1))[179]sb(b(2))[175]sb(b(1))[179]sb(b(0))[167]l(1)[178]1:n[178]n[171]1:[137]13230
13225 [139]sb(b(0))[178]sb(b(1))[175]sb(b(1))[179]sb(b(2))[167]l(0)[178]1:l(1)[178]1:n[178]n[171]2
13230 [139][181](n[173]3)[178]n[173]3[167]c(0)[178]n[173]3:c(1)[178]c(0):c(2)[178]c(0)
13235 [139][181]((n[170]2)[173]3)[178](n[170]2)[173]3[167]c(0)[178][181](n[173]3):c(1)[178]c(0):c(2)[178]c(0)[170]1
13240 [139][181]((n[170]1)[173]3)[178](n[170]1)[173]3[167]c(0)[178][181](n[173]3)[170]1:c(1)[178]c(0)[171]1:c(2)[178]c(0)
13245 c(0)[178]c(0)[170]l(0):c(1)[178]c(1)[170]l(1):n[178]n[170]l(0)[170]l(1):[137]13272
13250 [139]sb(b(0))[178]sb(b(1))[167]13260
13255 l(0)[178]1:n[178]n[171]1
13260 [139][181](n[173]2)[178]n[173]2[167]c(0)[178]n[173]2:c(1)[178]c(0)
13265 [139][181]((n[170]1)[173]2)[178](n[170]1)[173]2[167]c(0)[178][181](n[173]2):c(1)[178]c(0)[170]1
13270 c(0)[178]c(0)[170]l(0):n[178]n[170]l(0)
13272 [129]g[178]0[164]ko(k(m))[171]1
13273 [139]c(g)[170]sb(b(g))[177]5[167]n[178]n[171](c(g)[170]sb(b(g))[171]5):c(g)[178]5[171]sb(b(g))
13274 [130]g:[139]n[178]0[167]13345
13275 [141]10900:[141]10800:[153]""sp$(z)" kauft":[141]10800
13280 [153]"haeuser: auf.."
13285 l(0)[178]0:l(1)[178]0
13290 [129]g[178]0[164]ko(k(m))[171]1
13295 [141]10800:[153][200](un$,g[170]4)""b$(g)
13300 [141]10800:[153][200](un$,g[170]4)""c(g)
13305 [130]g
13310 [129]i[178]0[164]ko(k(m))[171]1
13315 sb(b(i))[178]sb(b(i))[170]c(i)
13320 gt[178]gt[170]c(i)
13325 [130]i
13330 ge(z)[178]ge(z)[171]n[172][181]((k(m)[170]1)[173]2)[172]1000
13335 xj[178]j:[141]7000:[141]10000:[141]8000:j[178]xj
13340 [129]a[178]1[164]2000:[130]a
13345 [130]k
13400 [142]
13900 [141]10900
13910 [141]10800:[153]"* aktivitaeten *":[142]
14000 i[178]0:s2[178]0
14010 i[178]i[170]1:[139](be(i)[179][177]z[176]hy(i)[178]0)[175]i[179]40[167]14010
14020 [139]i[179]40[167]14060
14030 [139]be(40)[178]z[175]hy(40)[178]1[167]14060
14040 [139]s2[178]1[167][141]7000:[141]10000:[141]8000
14050 [142]
14060 [139]ge(z)[179].8[172]pr(i)[167]14040
14070 [141]10900:[141]10800:[153]""sp$(z)" zahlt":[141]10800
14075 [153]"hypothek auf "at$(i):[141]10800:[153]""sn$(i)
14078 [141]10800:[153]"zurueck.
14080 ge(z)=ge(z)-.6*pr(i):hy(i)=0:s2=1
14085 kp(z,fa(i))=kp(z,fa(i))+1
14090 fora=1to1500:next
14095 ifi=40then14040
14100 goto14010
15000 s2=0:n=0
15005 fori=1to8:a$="":z4=0:z5=0:z6=0:z7=0:ifn>=2then15090
15010 ifkp(z,i)=ko(i)orkp(z,i)=0then15090
15015 forj=1to4:ifj=zorz4<>0then15025
15020 ifkp(j,i)>0thenz4=j
15025 nextj
15030 ifz4=0then15090
15035 fork=1to8:ifk=iorz5<>0then15045
15040 if(kp(z4,k)=1orkp(z4,k)=2andko(k)=3)andkp(z,k)=1thenz5=k
15045 nextk
15050 ifz5=0then15069
15055 m=-1
15057 m=m+1:ifbe(st(i,m))<>z4then15057
15060 z7=st(i,m):m=-1
15062 m=m+1:ifbe(st(z5,m))<>zthen15062
15065 z6=st(z5,m):gosub17500:n=n+1:s2=1:goto15090
15069 m=-1
15070 m=m+1:ifbe(st(i,m))<>z4then15070
15075 z7=st(i,m):pt=int((pr(z7)*(1.9+rnd(1)*1.4))/100)*100
15080 ifge(z)<ptthen15090
15085 gosub17000:s2=1:n=n+1
15090 ifa$="j"thengosub10000:gosub8000:gosub7000
15092 nexti
15095 ifs2=1thenfora=1to3000:next
15097 return
16000 n=0
16002 n=n+1:ifn=3then16500
16005 gosub10900:gosub10800:print"welche strasse":gosub10800
16006 print"willst du ?"
16010 gosub19000:iffe=1then16500
16012 fora=1to800:next
16015 z7=i
16020 ifsb(i)>0then16500
16030 forj=0toko(fa(j))-1:b(j)=st(fa(i),j)
16035 nextj
16040 ifsb(b(1))>0then16500
16045 ifm=3andsb(b(2))>0then16500
16050 gosub10900:gosub10800:print"von wem willst":gosub10800
16051 print"du "ar$(z7):gosub10800:print""sn$(z7)" ?"
16055 z4=0
16060 tm$=ti$
16065 geta$:ifa$=""then16065
16066 ti$=tm$
16070 fork=1to4:ifk=zthen16075
16072 ifa$=left$(sp$(k),1)thenz4=k
16075 nextk
16080 ifz4=0orz4<>be(i)then16500
16085 gosub10800:print""sp$(z4)
16088 fora=1to1000:next
16090 gosub10900:gosub10800:print"willst du":gosub10800
16095 print"kaufen (v) oder":gosub10800:print"tauschen (t) ?"
16099 tm$=ti$
16100 geta$:ifa$<>"v"anda$<>"t"then16100
16101 ti$=tm$
16105 ifa$="t"then16140
16110 gosub10800:print"zu welchem preis?"
16113 b$=""
16115 gosub10800:print"dm ";
16116 geta$:ifa$<>chr$(20)then16119
16117 iflen(b$)>0thenprint"[157] [157]";:b$=left$(b$,len(b$)-1)
16118 goto16116
16119 ifa$<>""anda$<>chr$(13)thenifasc(a$)<48orasc(a$)>57then16116
16120 printa$;:ifa$=chr$(13)andlen(b$)>0then16122
16121 b$=b$+a$:goto16116
16122 pt=val(b$)
16125 gosub17000
16130 ifa$="j"thengosub10000:gosub8000:gosub7000
16135 fora=1to3000:next:return
16140 gosub10800:print"gegen welche ?":gosub19000:iffe=1then16500
16145 z6=i:j=i
16150 ifbe(j)<>zthen16500
16155 fork=0toko(fa(j))-1:b(k)=st(fa(j),k)
16160 nextk
16165 ifsb(j)>0orsb(b(1))>0then16500
16170 ifm=2andsb(b(2))>0then16500
16180 gosub17500:goto16130
16500 gosub10800:print"falsche eingabe!":fora=1to1500:next:gosub10900
16510 return
17000 gosub10900:gosub10800:print""sp$(z)" will":gosub10800
17002 print"von "sp$(z4)" "ar$(z7)
17005 a$=""
17010 gosub10800:print""sn$(z7):gosub10800:print"fuer dm"pt
17015 gosub10800:print"(j/n)?"
17020 ifz4>anthen17100
17024 tm$=ti$
17025 geta$:ifa$=""then17025
17026 ti$=tm$
17030 ifa$="j"then17050
17035 ifa$="n"then17045
17040 goto17024
17045 gosub10800:print"nein!":return
17050 ifge(z)<ptthengosub10800:print"zu wenig geld! "
17051 ifge(z)<ptthenreturn
17055 gosub10800:print"ja!"
17060 be(z7)=z
17061 ifhy(z7)=0thenkp(z,fa(z7))=kp(z,fa(z7))+1
17063 ifhy(z7)=0thenkp(z4,fa(z7))=kp(z4,fa(z7))-1
17065 ge(z)=ge(z)-pt:ge(z4)=ge(z4)+pt:return
17100 ifkp(z,fa(z7))=ko(fa(z7))-1thena$="n"
17105 ifkp(z4,fa(z7))>1thena$="n"
17110 m=0
17115 forj=1to8:ifkp(z4,j)=ko(j)thenm=m+1
17120 nextj:ifm<2andpt<3*pr(z7)thena$="n"
17125 ifpt<2*pr(z7)thena$="n"
17130 ifpt>3*pr(z7)andrnd(1)<.5thena$="n"
17132 ifge(z4)>3000thena$="n"
17135 ifa$<>"n"thena$="j"
17140 goto17030
17500 r=pr(z7)-pr(z6):a$=""
17505 ifr>0andge(z)<rthenreturn
17510 gosub10900:gosub10800:print""sp$(z)" will":gosub10800
17512 print"von "sp$(z4)" "ar$(z7):gosub10800
17513 ifr>=0then17520
17515 print""sn$(z7)" +":gosub10800:print""abs(r)"dm gegen "ar$(z6)
17517 gosub10800:print""sn$(z6)
17518 goto17525
17520 gosub10800:print""sn$(z7):gosub10800:print"gegen dm"abs(r)
17522 gosub10800:print"+ "sn$(z6)
17525 gosub10800:print"(j/n)?"
17530 ifz4>anthen17600
17534 tm$=ti$
17535 geta$:ifa$=""then17535
17536 ti$=tm$
17540 ifa$="j"then17555
17545 ifa$="n"then17552
17550 goto17534
17552 gosub10800:print"nein!":return
17555 gosub10800:print"ja!"
17556 ifr>0andge(z)<rthengosub10800:print"zu wenig geld":goto17575
17557 ifr<0andge(z4)<(-r)thengosub10800:print"zu wenig geld":goto17575
17560 be(z7)=z:be(z6)=z4
17561 ifhy(z7)=0thenkp(z,fa(z7))=kp(z,fa(z7))+1
17563 ifhy(z7)=0thenkp(z4,fa(z7))=kp(z4,fa(z7))-1
17565 ifhy(z6)=0thenkp(z4,fa(z6))=kp(z4,fa(z6))+1
17567 ifhy(z6)=0thenkp(z,fa(z6))=kp(z,fa(z6))-1
17570 ge(z)=ge(z)-r:ge(z4)=ge(z4)+r
17575 return
17600 ifkp(z,fa(z7))-ko(fa(z7))<=kp(z4,fa(z6))-ko(fa(z6))thena$="j"
17602 ifa$<>"j"thena$="n"
17605 ifr<0andge(z4)<abs(r)thena$="n"
17610 goto17540
18000 ifge(z)<z9then18015
18005 ifz>anthengosub10000:gosub8000
18010 v=0:fora=1to1000:next:return
18015 q=0
18020 fori=1to40
18025 ifbe(i)=zthenq=1
18030 nexti
18035 ifq=0then27000
18040 gosub18100:gosub7000:goto18000
18100 ifz>anthen18500
18105 gosub10900:gosub10800:print"haeuser verk. -> v"
18110 gosub10800:print"hypothek aufn.-> h"
18115 gosub10800:print"strasse verk. -> s"
18120 gosub10800:print"schuld:"z9
18124 tm$=ti$
18125 geta$:ifa$=""then18125
18126 ti$=tm$
18127 ifa$="v"then18300
18128 ifa$="h"then18200
18129 ifa$<>"s"then18124
18130 gosub10900:gosub10800:print"welche strasse":gosub10800:print"willst du"
18135 gosub10800:print"verkaufen?"
18140 gosub19000:iffe=1then18105
18142 ifbe(i)<>zthen18400
18144 forj=0to2
18146 b(j)=st(fa(i),j)
18148 nextj
18150 q=0
18152 forj=0toko(fa(i))
18154 ifsb(b(j))>0thenq=1
18156 nextj
18160 ifq=1then18400
18165 be(i)=5
18170 ge(z)=ge(z)+pr(i)*(1+(.5*(hy(i)=1)))
18172 ifhy(i)=0thenkp(z,fa(i))=kp(z,fa(i))-1
18175 hy(i)=0:gosub10000:gosub8000:return
18200 gosub10900:gosub10800:print"auf welche":gosub10800:print"strasse willst"
18205 gosub10800:print"du eine hypothek":gosub10800:print"aufnehmen?"
18210 gosub19000:iffe=1then18105
18215 ifbe(i)<>zthen18400
18220 forj=0toko(fa(i))-1
18225 b(j)=st(fa(i),j)
18230 nextj
18235 q=0
18240 forj=0toko(fa(i))-1
18245 ifsb(b(j))>0thenq=1
18250 nextj
18255 ifq=1then18400
18260 ifhy(i)=1then18400
18265 ge(z)=ge(z)+.5*pr(i)
18267 kp(z,fa(i))=kp(z,fa(i))-1
18270 hy(i)=1:gosub10000:gosub8000:return
18300 gosub10900:gosub10800:print"auf welchem":gosub10800:print"strassenzug
18305 [141]10800:[153]"willst du haeuser":[141]10800:[153]"verkaufen?"
18310 [141]10800:[153]"(die 1. angeben)"
18315 [141]19000:[139]fe[178]1[167]18105
18325 [129]j[178]0[164]ko(fa(i))[171]1
18330 b(j)[178]st(fa(i),j)
18332 [130]j
18335 [141]10900
18337 [129]j[178]0[164]ko(fa(i))[171]1
18340 [141]10800:[153][200](un$,j[170]1)sn$(b(j))":"
18345 [161]a$:[139]a$[178]""[167]18345
18347 [139][198](a$)[179]48[176][198](a$)[177]53[167]18345
18350 w(j)[178][197](a$):[141]10800:[153][200](un$,j[170]1)""w(j)
18355 c(j)[178]sb(b(j))[171]w(j)
18360 [130]j
18370 [139][182](c(0)[171]c(1))[177]1[167]18400
18372 [139]ko(fa(i))[178]3[175][182](c(0)[171]c(2))[177]1[167]18400
18374 [139]ko(fa(i))[178]3[175][182](c(1)[171]c(2))[177]1[167]18400
18376 w[178]w(0)[170]w(1)[170]w(2)
18378 [129]j[178]0[164]ko(fa(i))[171]1
18380 sb(b(j))[178]sb(b(j))[171]w(j)
18385 [130]j
18390 ge(z)[178]ge(z)[170]w[172]500[172][181]((fa(i)[170]1)[173]2)
18395 gt[178]gt[171]w:z4[178]i:[141]10000:[141]8000:[137]18965
18400 [141]10900:[141]10800:[153]"das geht nicht!"
18405 [129]a[178]1[164]1500:[130]:[137]18105
18500 z4[178]0:o[178]1
18505 [129]b[178]1[164]10:[129]c[178]0[164]ko(b)[171]1:i[178]st(b,c):[139]z4[179][177]0[167]18514
18510 [139]v[177]0[167][141]18615:[137]18514
18512 [145]o[141]18525,18540,18555,18570,18585,18600,18615,18630,18645
18514 [130]c,b
18516 [139]z4[179][177]0[167][145]z5[137]18900,18920,18940
18518 o[178]o[170]1:[139]o[179]10[167]18505
18520 [142]
18525 [139](fa(i)[178]9[176]fa(i)[178]10)[175]be(i)[178]z[175]hy(i)[178]0[167]z4[178]i:z5[178]1
18526 [142]
18540 [139]kp(z,fa(i))[178]1[175]be(i)[178]z[175]hy(i)[178]0[167]z4[178]i:z5[178]1
18541 [142]
18555 [139]kp(z,fa(i))[178]2[175]ko(fa(i))[178]3[175]be(i)[178]z[175]hy(i)[178]0[167]z4[178]i:z5[178]1
18556 [142]
18570 [139](fa(i)[178]9[176]fa(i)[178]10)[175]be(i)[178]z[167]z4[178]i:z5[178]2
18571 [142]
18585 [139]kp(z,fa(i))[178]0[175]be(i)[178]z[175]hy(i)[178]1[167]z4[178]i:z5[178]2
18586 [142]
18600 [139]kp(z,fa(i))[178]0[175]ko(fa(i))[178]3[175]be(i)[178]z[175]hy(i)[178]1[167]z4[178]i:z5[178]2
18601 [142]
18615 [139]kp(z,fa(i))[179]ko(fa(i))[167][142]
18616 v[178]0:[129]j[178]0[164]ko(fa(i))[171]1
18617 b(j)[178]st(fa(i),j)
18618 v[178]v[170]sb(b(j))
18619 [130]j
18620 [139]v[178]0[167][142]
18621 m[178]0
18622 [129]j[178]0[164]ko(fa(i))[171]1
18623 [139]sb(b(j))[177]m[167]m[178]sb(b(j)):z4[178]b(j)
18624 [130]j:z5[178]3:[142]
18630 [139]be(i)[178]z[175]hy(i)[178]0[167]z4[178]i:z5[178]1
18631 [142]
18645 [139]be(i)[178]z[167]z4[178]i:z5[178]2
18646 [142]
18900 [141]10900:[141]10800:[153]""sp$(z)" nimmt":[141]10800
18902 [153]"hypothek auf "ar$(z4):[141]10800:[153]""sn$(z4)"
18905 gosub10800:print"auf.":gosub10800:print"schuld:"z9
18910 ge(z)=ge(z)+.5*pr(z4)
18913 kp(z,fa(z4))=kp(z,fa(z4))-1
18915 hy(z4)=1:return
18920 gosub10900:gosub10800:print""sp$(z):gosub10800
18922 print"verkauft "ar$(z4):gosub10800
18925 print""sn$(z4)
18930 gosub10800:print"schuld:"z9
18932 ge(z)=ge(z)+.5*pr(z4)
18933 ifhy(z4)=0thenkp(z,fa(z4))=kp(z,fa(z4))-1
18935 be(z4)=5:hy(z4)=0:return
18940 gosub10900:gosub10800:print""sp$(z)" verkauft":gosub10800
18942 print"ein haus auf "at$(z4):gosub10800:print""sn$(z4)
18945 gosub10800:print"schuld:"z9
18950 sb(z4)=sb(z4)-1:v=v-1
18955 ge(z)=ge(z)+int((fa(z4)+1)/2)*500
18960 gt=gt-1
18965 return
19000 fe=0
19002 getb$:ifb$=""then19000
19005 getc$:ifc$=""then19005
19010 getd$:ifd$=""then19010
19015 a$=b$+c$+d$
19020 ifa$="sch"then19100
19025 ifa$="hau"then19130
19030 i=0
19035 i=i+1:ifi=41then19045
19040 ifleft$(sn$(i),3)<>a$then19035
19045 ifi=41then19300
19050 goto19180
19100 getb$:ifb$=""then19100
19105 ifb$="l"theni=40:goto19180
19110 ifb$<>"i"then19300
19115 i=27:goto19180
19130 getb$:ifb$=""then19130
19135 getb$:ifb$=""then19135
19140 getb$:ifb$=""then19140
19145 ifb$="s"theni=33:goto19180
19150 ifb$<>"b"then19300
19155 i=36:goto19180
19180 a$=sn$(i)
19190 gosub10800:print""a$
19195 return
19300 fe=1:return
19500 ifge(z)>pythenpj=0:return
19510 pj=1:gosub10800:print""sp$(z)" hat nicht":gosub10800
19515 print"genug geld."
19520 return
20000 tt=val(left$(ti$,2))*60+val(mid$(ti$,3,2))
20002 print"[151]"tr$tu$;" [157][157][157][157][157]"str$(ru-tt)
20005 print"[151]"fr$fu$;" [157][157][157][157][157][157]"str$(fp)
20010 return
20500 ifpo(z)=39thengoto20520
20505 gosub10900:gosub10800:print""sp$(z)" muss"
20510 gosub10800:print"4000 dm zahlen."
20515 bz=4000:goto20550
20520 gosub10900:gosub10800:print""sp$(z)" muss"
20525 gosub10800:print"2000 dm zahlen."
20530 bz=2000:goto20550
20550 ifbz>ge(z)thenz9=bz:gosub18000
20555 ge(z)=ge(z)-bz:fp=fp+bz:return
21000 gosub22000:gw(z)=gw(z)+1
21010 ifwp$="pasch"thenpg(z)=0:gw(z)=0:gosub21100:goto3105
21015 ifgw(z)=3thengw(z)=0:pg(z)=0:z9=1000:gosub21150:goto21040
21020 ifff(z)=1thenpg(z)=0:gw(z)=0:ff(z)=0:goto21065
21021 gosub10900:gosub10800:print"willst du dich":gosub10800
21022 print"fuer dm 1000":gosub10800:print"freikaufen ?":gosub10800
21023 print"(j/n)";:ifz>anthen21030
21024 tm$=ti$
21025 geta$:ifa$<>"j"anda$<>"n"then21025
21026 ti$=tm$
21027 ifa$="j"andge(z)>=1000thengw(z)=3:print" ja!":fora=1to1000:next:goto21015
21028 print" nein!":fora=1to1000:next:goto3235
21030 ifgt>10orge(z)<1000thena$="n"
21031 ifge(z)>1000and(wu=10orwu=7)thena$="j"
21032 ifa$="n"thenprint" nein!":fora=1to1000:next:goto3235
21033 print" ja!"
21035 fora=1to1000:next:gw(z)=3:goto21015
21040 ifge(z)<z9thengosub18000
21045 ifz2=1then3235
21050 ge(z)=ge(z)-1000:goto3105
21065 gosub10900:gosub10800:print"e/g-karte:"
21066 gosub10800:print"du kommst aus":gosub10800:print"dem gefaengnis"
21067 gosub10800:print"frei."
21070 goto3105
21100 gosub10900:gosub10800:print"* pasch *"
21105 gosub10800:print"du kommst aus":gosub10800:print"dem gefaengnis"
21110 gosub10800:print"frei."
21115 return
21150 gosub10900:gosub10800:print"du kommst fuer"
21155 gosub10800:print"1000 dm aus dem":gosub10800:print"gefaengnis frei"
21160 return
21999 goto3100
22000 gosub10900
22005 gosub10800:print"* wuerfeln *"
22010 ifz>anor(pg(z)=0andwp$="")then22025
22015 gosub10800:print"[146]return"
22019 tm$=ti$
22020 geta$:ifa$<>chr$(13)then22020
22021 ti$=tm$:gosub10800:print" "
22025 w(1)=6:w(2)=6
22030 b(1)=int(rnd(1)*12)+13
22040 b(2)=int(rnd(1)*12)+13
22045 ifb(1)>=b(2)thenx=b(1):goto22050
22046 x=b(2)
22050 fory=1tox:fori=1to2
22052 ify>b(i)then22056
22055 w(i)=w(i)-1:ifw(i)=0thenw(i)=6
22056 nexti
22057 print""left$(re$,21)left$(un$,22);
22058 onw(1)gosub22200,22210,22220,22230,22240,22250
22059 print""left$(re$,25)left$(un$,22);
22060 onw(2)gosub22200,22210,22220,22230,22240,22250
22065 nexty
22070 ifw(1)=w(2)thenwp$="pasch"
22072 ifw(1)<>w(2)thenwp$=""
22075 ifwp$="pasch"thenp=p+1:ifp=3thenpg(z)=1:wu=11-po(z):ifwu<0thenwu=wu+40
22080 ifp=3then22100
22085 wu=w(1)+w(2)
22090 return
22100 gosub10900:gosub(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)g(NULL)(NULL)(NULL)(NULL)(NULL)pokeread(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)poke(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)gWpokeprint(NULL)(NULL)(NULL)print(NULL)(NULL)usr(NULL)read(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)printx(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print#(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)(NULL)(NULL)read(NULL)G(NULL)(NULL)(NULL)(NULL)save(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)save(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)(NULL)(NULL)then(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)save(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)chr$